home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pproject.arc / PERTTASK.CLS < prev    next >
Encoding:
Text File  |  1990-06-07  |  2.6 KB  |  116 lines
  1. /* PERT Tasks are like regular tasks, but their time is
  2.    calculated based on the likely, best and worst cases.
  3.  
  4.    PERTTasks descend from Task and inherit all of
  5.    their methods and instance variables.
  6. */!!
  7.  
  8. inherit(Task, #PERTTask, #(likelyTime  /* for PERT calc time */ 
  9. bestTime    /* for PERT calc time */ 
  10. worstTime   /* for PERT calc time */
  11. variance    /* of calculated time */), 2, nil)!!
  12.  
  13. now(PERTTaskClass)!!
  14.  
  15. now(PERTTask)!!
  16.  
  17. /* Return the class name.  Uses resources for translation. */
  18. Def className(self)
  19. {
  20.   ^loadString(PW_PERTTASK);
  21. }!!
  22.  
  23. /* Return the appropriate dialog class to be used
  24.    by editInfo(). */
  25. Def  dialogClass(self)
  26. {
  27.   ^PERTDialog;
  28. }!!
  29.  
  30. /* Get the PERT worst time. */
  31. Def  getWorstTime(self)
  32. { 
  33.   ^worstTime;
  34. }!!
  35.  
  36. /* Get the PERT best time. */
  37. Def  getBestTime(self)
  38. { 
  39.   ^bestTime;
  40. }!!
  41.  
  42. /* Get the PERT likely time. */
  43. Def  getLikelyTime(self)
  44. { 
  45.   ^likelyTime;
  46. }!!
  47.  
  48. /* Set the values of an activity. 
  49.    Values is an array of name, desc,
  50.    userEarlyStart, userLateFinish, likelyTime
  51.    bestTime, worstTime, fixedCost, resources. */
  52. Def  setValues(self, values | oldUES, oldULF, oldTime, 
  53.                               oldLikely, oldBest, oldWorst)
  54. {
  55.   oldUES := userEarlyStart;
  56.   oldULF := userLateFinish;
  57.   oldTime := time;
  58.   oldLikely := likelyTime;
  59.   oldBest := bestTime;
  60.   oldWorst := worstTime;
  61.   
  62.   name := values[0];
  63.   desc := values[1];
  64.   userEarlyStart := values[2];
  65.   userLateFinish := values[3];
  66.   likelyTime := values[4];
  67.   bestTime := values[5];
  68.   worstTime := values[6];
  69.   
  70.   setFixedCost(self, values[7]);
  71.   checkResources(self, values[8]);
  72.  
  73.   if oldLikely <> likelyTime cor
  74.       oldBest <> bestTime cor
  75.       oldWorst <> worstTime
  76.      calcPERT(self);    /* recalc the PERT time */
  77.   endif;
  78.   
  79.   if network cand autoCalc(network) cand 
  80.      (oldUES <> userEarlyStart cor
  81.       oldULF <> userLateFinish cor
  82.       oldTime <> time)
  83.      recalc(self);     /* recalc the network */
  84.   endif;
  85. }!!
  86.  
  87. /* Get the PERT time, calculate it if invalidated. */
  88. Def  getTime(self)
  89. { 
  90.   if (time) 
  91.     ^time 
  92.   else 
  93.     ^calcPERT(self); 
  94.   endif;
  95. }!!
  96.  
  97. /* Init a new PERT Task. */
  98. Def  init(self)
  99. {
  100.   init(self:Task);      /* use ancestor init */
  101.   time := 0;            /* invalidate time */
  102.   bestTime := 0;
  103.   worstTime := 0;
  104.   likelyTime := 0;
  105.   variance := 0;
  106. } !!
  107.  
  108. /* For a PERT task, calculate the time and variance. 
  109.    Round it to an Int. */
  110. Def  calcPERT(self)
  111. { 
  112.   variance := ((worstTime - bestTime)/6.0)**2;
  113.   ^time := asInt(((bestTime + 4*likelyTime + worstTime) / 6.0) +.5);
  114. }!!
  115.  
  116.